home *** CD-ROM | disk | FTP | other *** search
/ PCDisk Magazine Disks / PCDisk Magazine - Disk 1.img / TUTOR.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1984-03-14  |  11.3 KB  |  143 lines
  1. 10  REM INFLATION PROOFER Copyright (c) 1983 by C.R. Hunter & Assoc. Inc.
  2. 20  DEFDBL A-H,O-W:KEY OFF:FOR I=1 TO 10:KEY I,"":NEXT:ON KEY(1)GOSUB 11400:KEY(1)ON:CLS:DIM IR(5,10),CB(19),FP(19,6),PB(19,6),IS$(6),TC$(19),YR$(10):DIM PG(19,6),RP(13):DIM XTABLE(20),CMV(20),HFPP(20),TFPP(20),PPP(20):DIM CV(20),TV(20)
  3. 30  COLOR 0,7:LOCATE 1,16:PRINT STRING$(49,36):I9$=" any ":COLOR 0,7:FOR X=1 TO 25:LOCATE X,15:PRINT"$";:LOCATE,65:PRINT"$";:NEXT X:COLOR 7,0:LOCATE 15,34:PRINT"C.R. Hunter":LOCATE 17,31:PRINT"& Associates, Inc.
  4. 40  LOCATE 13,39:PRINT"by":LOCATE 6,35:PRINT"INFLATION":LOCATE 8,36:PRINT"PROOFER":LOCATE 21,36:PRINT"(c) 1983":COLOR 0,7:LOCATE 25,15:PRINT STRING$(51,36);:COLOR 7,0
  5. 121  CR=1:OPEN "ASSUME.DAT" FOR INPUT AS #1:X=FRE(0):FOR I=1 TO 5:FOR J=1 TO 10:INPUT#1,IR(I,J):NEXT J:NEXT I:FOR X=1 TO 19:INPUT#1,CB(X):FOR Y=1 TO 6:INPUT#1,FP(X,Y):INPUT#1,PB(X,Y):INPUT#1,PG(X,Y):NEXT Y:NEXT X:FOR Z=1 TO 13:INPUT#1,RP(Z):NEXT Z
  6. 180  CLOSE#1:Y=FRE(0):XC=0:ASM=0:C2=0:DIM SC$(19,7):DIM TT$(5):DIM SN$(19),SV(19):FOR X=1 TO 5:READ TT$(X):NEXT X:DATA Inflation Rate Table,Price Now Table,Future Price Table,Balanced Portfolio Target % Table,Go-for-Broke Portfolio Target % Table  
  7. 270  FOR Y=1 TO 10:READ YR$(Y):NEXT Y:DATA FIRST YEAR,SECOND YEAR,THIRD YEAR,FOURTH YEAR,FIFTH YEAR,SIXTH YEAR,SEVENTH YEAR,EIGHTH YEAR,NINTH YEAR,TENTH YEAR:T$="TOTAL - ":FOR Z=1 TO 19:READ TC$(Z):NEXT Z
  8. 309  DATA GOLD BULLION,GOLD OPTIONS,SILVER BULLION,SILVER COINS,SWISS FRANCS,SWISS FRANCS w/INTEREST,STOCKS (DJIA),LEVERAGED STOCKS,PUT OPTIONS,REAL ESTATE
  9. 310  DATA COLLECTIBLES,CASH,TREASURY BILLS,OTHER SHORT-TERM $ HOLDINGS,TREASURY BONDS,OTHER LONG-TERM $ HOLDINGS,SHORT-TERM $ DEBTS,LONG-TERM $ DEBTS,OTHER INVESTMENTS:FOR X=1 TO 6:READ IS$(X):NEXT X
  10. 354  DATA LEVEL INFLATION,RISING INFLATION,RUNAWAY INFLATION,SOFT LANDING,DEFLATION,UNCERTAIN:FOR J=1 TO 7:FOR X=1 TO 19:READ SC$(X,J):NEXT X:NEXT J:DATA L,E,V,E,L, ,I,N,F,L,A,T,I,O,N,*,*,*,*:DATA R,I,S,I,N,G, ,I,N,F,L,A,T,I,O,N,*,*,*
  11. 374  DATA R,U,N,A,W,A,Y, ,I,N,F,L,A,T,I,O,N,*,*:DATA S,O,F,T, ,L,A,N,D,I,N,G,*,*,*,*,*,*,*:DATA D,E,F,L,A,T,I,O,N,*,*,*,*,*,*,*,*,*,*:DATA U,N,C,E,R,T,A,I,N,*,*,*,*,*,*,*,*,*,*:DATA P,R,I,C,E, ,N,O,W, ,T,A,B,L,E,*,*,*,*:FOR X=1 TO 11
  12. 420  READ XTABLE(X):NEXT X:DATA 1,3,4,6,7,8,10,12,13,15,18:DIM B$(500):ON ERROR GOTO 15000
  13. 2192  CLS:LOCATE 1,1:PRINT"This tutorial program was created in order to introduce you":PRINT:PRINT"to the concepts of inflation-proofing.  To run INFLATION PROOFER,":PRINT:PRINT"you need only to read each screen and follow the instructions
  14. 2194  PRINT:PRINT"given.  Remember that each time the program asks you to enter data,":PRINT:PRINT"you are to type the desired characters, then press ENTER.":PRINT:PRINT"Pressing ENTER tells the program to accept your data.
  15. 2210  OPEN "SCREEN" FOR INPUT AS #1:Z=FRE(0):FOR LX=1 TO 500:LINE INPUT#1,B$(LX):NEXT LX:CLOSE#1:Z=FRE(0)
  16. 2282  CLS:ON ERROR GOTO 11500:LP=0:SS=0:IF YN$="N"OR YN$="n"THEN X=131:GOTO 3000
  17. 2300  FOR X=1 TO LX:IF LEFT$(B$(X),1)=">"GOTO 3000
  18. 2310  IF LEFT$(B$(X),1)="<"GOTO 2340
  19. 2320  PRINT B$(X):GOTO 2470
  20. 2340  LOCATE 24,1:PRINT"To continue press ENTER";:INPUT" ",B$:IF LEFT$(B$,1)=""THEN LP=X:GOTO 2465
  21. 2380  S=VAL(B$):IF X=37 GOTO 2400
  22. 2390  IF X=130 GOTO 2440
  23. 2395  LP=X:GOTO 2465
  24. 2400  IF S<1 GOTO 2430
  25. 2410  IF S>5 GOTO 2430
  26. 2420  GOTO 2490
  27. 2430  BEEP:X=LP:GOTO 2465
  28. 2440  IF S<1 GOTO 2430
  29. 2450  IF S>19 GOTO 2430
  30. 2460  GOTO 2610
  31. 2465  CLS
  32. 2470  NEXT X:Z=FRE(0):ON ERROR GOTO 11500
  33. 2480  GOTO 3000
  34. 2490  CLS:X=LP:ON S GOTO 2510,2530,2550,2570,2590
  35. 2510  LOCATE 7,1:PRINT"Level inflation:":PRINT:PRINT"Inflation levels off at some constant rate.":GOTO 2340
  36. 2530  LOCATE 7,1:PRINT"Rising inflation:":PRINT:PRINT"Inflation rises in waves, as it has over the past ten years or so.":GOTO 2340
  37. 2550  LOCATE 7,1:PRINT"Runaway inflation:":PRINT:PRINT"Inflation rises to extremely high rates.":GOTO 2340
  38. 2570  LOCATE 7,1:PRINT"Soft landing:":PRINT:PRINT"Inflation eases downward to a very low rate and stays there.":GOTO 2340
  39. 2590  LOCATE 7,1:PRINT"Deflation:":PRINT:PRINT"Negative inflation rates, similar to a 1930's style depression.":GOTO 2340
  40. 2610  CLS:X=LP:ON S GOTO 2640,2660,2680,2700,2720,2740,2760,2780,2800,2820,2830,2840,2850,2860,2870,2880,2890,2900,2910
  41. 2640  LOCATE 7,1:PRINT"Gold bullion:":PRINT:PRINT"Gold bars and gold (non-numismatic) coins":GOTO 2340
  42. 2660  LOCATE 7,1:PRINT"Gold options:":PRINT:PRINT"Call option contracts that allow the owner to buy gold":PRINT"at a fixed price until a stated expiration date":GOTO 2340
  43. 2680  LOCATE 7,1:PRINT"Silver bullion:":PRINT:PRINT"Silver bars":GOTO 2340
  44. 2700  LOCATE 7,1:PRINT"Silver coins:":PRINT:PRINT"U.S. 90% silver, pre-1965 coins":GOTO 2340
  45. 2720  LOCATE 7,1:PRINT"Swiss francs:":PRINT:PRINT"Swiss currency held as a bank deposit or in banknotes outside a bank":GOTO 2340
  46. 2740  LOCATE 7,1:PRINT"Swiss francs w/interest:":PRINT:PRINT"Interest-bearing Swiss government bonds or Swiss annuities":GOTO 2340
  47. 2760  LOCATE 7,1:PRINT"Stocks:":PRINT:PRINT"Stock market investments, represented by the Dow Jones Industrial Average":GOTO 2340
  48. 2780  LOCATE 7,1:PRINT"Leveraged stocks:":PRINT:PRINT"Warrants, dual-purpose funds, and volatile (high-leverage) stocks":GOTO 2340
  49. 2800  LOCATE 7,1:PRINT"Put options:":PRINT:PRINT"Contracts that allow the owner to sell a company's stock":PRINT"at a fixed price until a stated expiration date":GOTO 2340
  50. 2820  LOCATE 7,1:PRINT"Real Estate:":PRINT:PRINT"Investments in land and buildings":GOTO 2340
  51. 2830  LOCATE 7,1:PRINT"Collectibles:":PRINT:PRINT"Items such as precious stones, works of art, numismatic coins and rare stamps":GOTO 2340
  52. 2840  LOCATE 7,1:PRINT"Cash:":PRINT:PRINT"Dollars held outside the bank to be used in an emergency":GOTO 2340
  53. 2850  LOCATE 7,1:PRINT"Treasury Bills:":PRINT:PRINT"Short-term (up to one year) U.S. government obligations; or holdings":PRINT"in a money market fund that invests exclusively in such securities":GOTO 2340
  54. 2860  LOCATE 7,1:PRINT"Other Short-term $ Holdings:":PRINT:PRINT"Dollar holdings in savings accounts, certificates of deposit, commercial paper,":PRINT"and in money market funds which invest in such instruments":GOTO 2340
  55. 2870  LOCATE 7,1:PRINT"Treasury Bonds:":PRINT:PRINT"Long-term (10-30 years) U.S. government obligations":GOTO 2340
  56. 2880  LOCATE 7,1:PRINT"Other Long-Term $ Holdings:":PRINT:PRINT"Long-term dollar assets such as corporate bonds, municipal bonds and mortgages":GOTO 2340
  57. 2890  LOCATE 7,1:PRINT"Short-Term $ Debt:":PRINT:PRINT"Margin debt or other obligations incurred to finance investments,":PRINT"including floating-rate mortgages":GOTO 2340
  58. 2900  LOCATE 7,1:PRINT"Long-Term $ Debt:":PRINT:PRINT"30-year mortgages with a fixed rate of interest":GOTO 2340
  59. 2910  LOCATE 7,1:PRINT"Other Investments:":PRINT:PRINT"Anything not covered in the other categories, such as commodity funds,":PRINT"investment partnerships, gold stocks, etc.":GOTO 2340
  60. 3000  ZH=X+1:GOTO 4000
  61. 3100  INPUT" -$",M$:CMV(X)=VAL(M$):HN=LEN(TC$(KK)):IF SGN(CMV(X))=1 THEN CMV(X)=-CMV(X)
  62. 3130  GOTO 4136
  63. 4000  F1$="$$###,###,###":CLS:LOCATE 1,1:PRINT"CREATE A PORTFOLIO:":PRINT:PRINT"Next to each investment category, enter the number of dollars":PRINT:PRINT"you wish to invest and press ENTER.  If no investment is desired,":PRINT
  64. 4040  PRINT"press ENTER.  ";:COLOR 0,7:PRINT"Do not enter commas.":COLOR 7,0:FOR X=1 TO 11:KK=XTABLE(X):LOCATE X+9,10:PRINT TC$(KK);:IF X=11 GOTO 3100
  65. 4132  INPUT" $",M$:CMV(X)=VAL(M$):HN=LEN(TC$(KK))
  66. 4136  LOCATE X+9,HN+10:PRINT SPC(47-HN):LOCATE X+9,37:PRINT USING F1$;CMV(X):NEXT X:LOCATE,37:PRINT"-------------":TCMV=0:FOR X=1 TO 11:TCMV=TCMV+CMV(X):NEXT X:LOCATE,10:PRINT"  TOTAL PORTFOLIO  = ";:LOCATE,37:PRINT USING F1$;TCMV:PRINT
  67. 4260  PRINT"To continue press ENTER";:INPUT" ",A$:IF XC=1 GOTO 11293
  68. 5005  CLS:PRINT"Choose the inflation scenario that you think is most likely":PRINT:PRINT"to occur in the next ten years.  Your portfolio will then":PRINT
  69. 5020  PRINT"be analyzed according to Harry Browne's assumptions.  (You will":PRINT:PRINT"be given a chance to review or change assumptions later.)":PRINT
  70. 5030  LOCATE,5:PRINT"1. Level inflation":PRINT:LOCATE,5:PRINT"2. Rising inflation":PRINT:LOCATE,5:PRINT"3. Runaway inflation":PRINT:LOCATE,5:PRINT"4. Soft landing":PRINT:LOCATE,5:PRINT"5. Deflation":PRINT:PRINT
  71. 5060  PRINT"Type number, press ENTER";:INPUT" ",S8$:S=VAL(S8$):IF S<1 OR S>5 THEN BEEP:GOTO 5060
  72. 5095  CPI=1:FOR X=1 TO 10:CPI=CPI*(1+IR(S,X)/100):NEXT X:TH=0:TT=0:FOR K=1 TO 11:KK=XTABLE(K):TS=PB(KK,S):TV(K)=(TS/100)*TCMV:P1=(FP(KK,S))/CPI:HFPP(K)=(CMV(K)/CB(KK))*P1:TFPP(K)=(TV(K)/CB(KK))*P1:TH=TH+HFPP(K):TT=TT+TFPP(K):NEXT K
  73. 5310  CLS:LOCATE 1,1:PRINT"YOUR PORTFOLIO PROJECTED FOR:  ";:COLOR 0,7:PRINT IS$(S):COLOR 7,0:F8$="###,###,###":F9$="####.#":F7$="$$###,###,###":PT=TH:FOR X=1 TO 11:PPP(X)=HFPP(X):CV(X)=CMV(X):NEXT X:GOSUB 5800:YGAIN=PGAIN:GL$="GAIN":V2=21
  74. 5344  BGAIN=ABS(YGAIN):GOSUB 5791
  75. 5348  LOCATE 24,1:PRINT"Do you want to see a suggested balanced portfolio of same $ amount";:LOCATE 25,1:PRINT"based on expectation of ";:COLOR 0,7:PRINT IS$(S);:COLOR 7,0:INPUT" (Y/N)? ",A$:IF LEFT$(A$,1)="N"OR LEFT$(A$,1)="n"THEN 5490
  76. 5370  IF LEFT$(A$,1)="Y"OR LEFT$(A$,1)="y"THEN 5400
  77. 5380  BEEP:GOTO 5348
  78. 5400  CLS:LOCATE 1,1:PRINT"BALANCED PORTFOLIO PROJECTED FOR:  ";:COLOR 0,7:PRINT IS$(S):COLOR 7,0:PT=TT:FOR X=1 TO 11:PPP(X)=TFPP(X):CV(X)=TV(X):NEXT X:GOSUB 5800:AGAIN=ABS(PGAIN):GN$="GAIN
  79. 5430  LOCATE 21,1:PRINT"BALANCED PORTFOLIO =";:PRINT USING F9$;AGAIN;:PRINT"% ";:IF SGN(PGAIN)=-1 THEN GN$="LOSS":GOTO 5438
  80. 5436  PRINT GN$;" IN FUTURE PURCHASING POWER";:GOTO 5440
  81. 5438  COLOR 0,7:PRINT GN$;:COLOR 7,0:PRINT" IN P.P.";
  82. 5440  BGAIN=ABS(YGAIN):V2=22:GOSUB 5791:LOCATE 25,1:PRINT"To continue press ENTER";:INPUT" ",A$
  83. 5490  CLS:LOCATE 1,1:PRINT"We suggest that you take a look at what happens to your":PRINT:PRINT"portfolio in each of the inflation scenarios.  Do you want":PRINT:PRINT"to project your portfolio in a different scenario (Y/N)?";:INPUT" ",A$
  84. 5494  IF LEFT$(A$,1)="Y"OR LEFT$(A$,1)="y"THEN CLS:GOTO 11295
  85. 5495  IF LEFT$(A$,1)="N"OR LEFT$(A$,1)="n"THEN 5990
  86. 5498  BEEP:GOTO 5490
  87. 5500  CLS:PRINT"Do you want to enter a different portfolio (Y/N)?";:INPUT" ",A$:IF LEFT$(A$,1)="Y"OR LEFT$(A$,1)="y"THEN 4000
  88. 5520  IF LEFT$(A$,1)="N"OR LEFT$(A$,1)="n"THEN 11300
  89. 5530  BEEP:GOTO 5500
  90. 5791  LOCATE V2,1:PRINT"YOUR PORTFOLIO     =";:PRINT USING F9$;BGAIN;:PRINT"% ";:IF SGN(YGAIN)=-1 THEN GL$="LOSS":GOTO 5794
  91. 5793  PRINT GL$;" IN FUTURE PURCHASING POWER";:GOTO 5795
  92. 5794  COLOR 0,7:PRINT GL$;:COLOR 7,0:PRINT" IN FUTURE PURCHASING POWER";
  93. 5795  RETURN
  94. 5800  LOCATE 3,30:PRINT"CURRENT             FUTURE (10 YRS.)":LOCATE 4,30:PRINT"MARKET VALUE        PURCHASING POWER":LOCATE 5,34:PRINT"($)";:LOCATE 5,56:PRINT"($)":LOCATE 6,1:FOR X=1 TO 67:PRINT"-";:NEXT X:FOR X=1 TO 11:K=XTABLE(X)
  95. 5900  LOCATE X+6,1:PRINT TC$(K);:LOCATE,29:PRINT USING F8$;CV(X);:LOCATE,50:PRINT USING F8$;PPP(X):NEXT X:LOCATE 18,1:FOR X=1 TO 67:PRINT"=";:NEXT X:LOCATE 19,5:PRINT"TOTAL";:LOCATE,27:PRINT USING F7$;TCMV;:LOCATE,48:PRINT USING F7$;PT
  96. 5955  IF TCMV=0 THEN PGAIN=0:GOTO 5970
  97. 5960  PGAIN=((PT-TCMV)/TCMV)*100
  98. 5970  RETURN
  99. 5990  IF ASM=1 GOTO 10000
  100. 6010  CLS:ASM=1:GOSUB 6030:ZH=X+1:GOTO 10000
  101. 6030  FOR X=ZH TO LX:IF LEFT$(B$(X),1)=">"THEN RETURN
  102. 6040  IF LEFT$(B$(X),1)="<"GOTO 6070
  103. 6050  PRINT B$(X):GOTO 6100
  104. 6070  LOCATE 24,1:PRINT"To continue press ENTER";:INPUT" ",A$:CLS
  105. 6100  NEXT X:RETURN
  106. 10000  CLS
  107. 10020  LOCATE 1,1:PRINT"Do you want to rewiew/change";I9$;"of Harry Browne's":PRINT:PRINT"assumptions about inflation rates (Y/N)?";:INPUT" ",A$:IF LEFT$(A$,1)="Y"OR LEFT$(A$,1)="y"THEN 10140
  108. 10040  IF LEFT$(A$,1)="N"OR LEFT$(A$,1)="n"THEN 12100
  109. 10050  GOSUB 11299:GOTO 10020
  110. 10140  CLS:LOCATE 1,1:PRINT"Inflation Scenarios:":PRINT:XF=5:LOCATE,5:PRINT"1. Level inflation":PRINT:LOCATE,5:PRINT"2. Rising inflation":PRINT:LOCATE,5:PRINT"3. Runaway inflation":PRINT:LOCATE,5:PRINT"4. Soft landing":PRINT
  111. 10212  LOCATE,5:PRINT"5. Deflation":PRINT:PRINT:PRINT"For which scenario do you wish to see":PRINT"Inflation Rate Assumption Table?":PRINT:PRINT"Type number, press ENTER";:INPUT" ",S6$:S=VAL(S6$):IF S<1 OR S>XF THEN BEEP:GOTO 10140
  112. 10300  N2$="YEAR'S RATE":N1$="TEN-YEAR PERIOD":NN%=10:XT=1:GOTO 10860
  113. 10440  CLS
  114. 10450  LOCATE 1,1:PRINT"INFLATION RATE TABLE:  ";:COLOR 0,7:PRINT IS$(S):COLOR 7,0:LOCATE 3,1:PRINT N1$;:LOCATE 3,30:PRINT NM$:FOR X=1 TO 43:PRINT"-";:NEXT X:PRINT:FOR X=1 TO 9
  115. 10520  LOCATE X+5,2:PRINT X;:PRINT" - ";:PRINT SN$(X);:LOCATE,34:PRINT USING F1$;SV(X):NEXT X:X=10:LOCATE 15,1:PRINT X;:PRINT" - ";:PRINT SN$(X);:LOCATE,34:PRINT USING F1$;SV(X)
  116. 10590  PRINT:IF ED=1 THEN ED=0:GOTO 10660
  117. 10620  IF XT=1 GOTO 11200
  118. 10630  PRINT"which ";N2$;" Type number,press ENTER";:PRINT"To end editing,type ";:COLOR 0,7:PRINT"A";:COLOR 7,0:INPUT")CCEPT  -> ";L$:IF LEFT$(L$,1)=" A"THEN RETURN
  119. 10655  CLS:GOTO 10450
  120. 10660  LN=VAL(L$):IF LN<1 OR LN>NN%THEN BEEP:GOTO 10450
  121. 10690  SP=LEN(F1$):LOCATE LN+5,H2:COLOR 0,7:PRINT SPC(SP):COLOR 7,0:LOCATE LN+5,H2:INPUT" ",A$:SV(LN)=VAL(A$):LOCATE LN+5,H2:PRINT SPC(SP):LOCATE LN+5,H2+4:PRINT USING F1$;SV(LN):IF XT=1 THEN LOCATE 19,1:GOTO 11200
  122. 10740  LOCATE 23,1:GOTO 10630
  123. 10860  BH=27:H2=30:F1$="##,###.#%   ":NM$="INFLATION RATE":FOR X=1 TO 10:SN$(X)=YR$(X):SV(X)=IR(S,X):NEXT X:GOSUB 10440:FOR X=1 TO 10:IR(S,X)=SV(X):NEXT X:I9$=" any more ":GOTO 10000
  124. 11200  PRINT"Which year's rate do you wish to change?":PRINT:PRINT"Type number, press ENTER;":PRINT"or to end editing, press ENTER";:INPUT" ",L$:IF LEFT$(L$,1)=""THEN RETURN
  125. 11232  XC=1:C2=1:ED=1:CLS:GOTO 10450
  126. 11291  IF I9$<>" any more "OR XC=0 THEN 12100
  127. 11293  CLS:LOCATE 1,1:PRINT"You may now analyze your portfolio":PRINT:PRINT"according to your new assumptions.":PRINT:I9$=" more ":C2=0
  128. 11295  CLS:PRINT"Choose your inflation scenario.":PRINT:GOTO 5030
  129. 11299  BEEP:RETURN
  130. 11300  CLS:GOSUB 6030:BH=X+1:CLS:COLOR 0,7:LOCATE 1,4:FOR X=1 TO 33:PRINT"$";:NEXT X:FOR X=1 TO 17:LOCATE X,4:PRINT"$";:LOCATE,36:PRINT"$";:NEXT X:LOCATE 17,4:FOR X=1 TO 33:PRINT"$";:NEXT X:COLOR 7,0
  131. 11320  LOCATE 7,11:PRINT"INFLATION PROOFER":LOCATE 13,16:PRINT"THE END":COLOR 7,0:LOCATE 21,1:PRINT"To begin again, type:  RUN":ON ERROR GOTO 0:END
  132. 11400  CLS:LOCATE 7,1:PRINT"To begin again, type:  RUN":ON ERROR GOTO 0:END
  133. 11500  PRINT"ONE MOMENT, PLEASE ....":ZZ=FRE(0):RESUME:IF XC=0 THEN PRINT"Your portfolio will then be analyzed ":PRINT:PRINT"according to Harry Browne's assumptions.
  134. 11610  GOTO 5030
  135. 12100  CLS:PRINT"Do you want to revalue your current portfolio (Y/N)?";:INPUT" ",A$:IF LEFT$(A$,1)="Y"OR LEFT$(A$,1)="y"THEN 11295
  136. 12105  IF LEFT$(A$,1)="N"OR LEFT$(A$,1)="n"THEN 5500
  137. 12107  GOSUB 11299:GOTO 12100
  138. 15000  LOCATE 24,1:PRINT"Do you want introductory text? (Y/N) ";
  139. 15010  YN$=INKEY$:IF YN$=""THEN 15010
  140. 15020  IF YN$="y"OR YN$="Y"OR YN$="n"OR YN$="N"THEN 15099
  141. 15030  BEEP:GOTO 15000
  142. 15099  RESUME 2282
  143.